library(gemtc)
data.re<-read.delim("D:/data1.txt")
treatment<-read.delim("D:/data2.txt")
gemtc_network<- mtc.network(data.re=data.re, treatments=treatment)
plot(gemtc_network)
model.fe<-mtc.model(gemtc_network,likelihood= "binom",link="cloglog",linearModel="fixed",dic=T)
result.fe<- mtc.run(model.fe, n.adapt=1000, n.iter=5000) 
gemtc::forest
forest(relative.effect(result.fe, "C")) 